home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctjja86.arc / KEYDATA.BAS < prev    next >
BASIC Source File  |  1985-02-06  |  1KB  |  38 lines
  1. 100 ' KEYDATA.BAS
  2. 110 '
  3. 120 ' Creates a file of (x,y) test data, entered from keyboard
  4. 130 '
  5. 140     CLS : WIDTH 80 : KEY OFF : DEFINT I-N
  6. 150     MOST.PTS = 10
  7. 160     OPTION BASE 1 : DIM X(MOST.PTS),Y(MOST.PTS)
  8. 170     INPUT "Enter desired output data filename ",FILE$
  9. 180     PRINT : PRINT "Opening output file " + FILE$
  10. 190     PRINT STRING$(19,45) + " " STRING$(LEN(FILE$),196)
  11. 200     OPEN FILE$ FOR OUTPUT AS # 1
  12. 210     PRINT
  13. 220     INPUT "Enter total number of data points ",N
  14. 230     IF N > MOST.PTS THEN 210
  15. 240     CLS
  16. 250     PRINT "Total number of points to be entered is ";N
  17. 260     PRINT
  18. 270     FOR I = 1 TO N
  19. 280       PRINT "  point number ";I;
  20. 290       INPUT " ... enter  x , y  ",X(I),Y(I)
  21. 300     NEXT
  22. 310     CLS : PRINT "Summary" : PRINT
  23. 320     FOR I =1 TO N
  24. 330       PRINT "  ... point number ";I;
  25. 340       PRINT " is     ";X(I);",";Y(I)
  26. 350     NEXT
  27. 360     PRINT : PRINT "Press the space bar to write ";
  28. 370     PRINT "data to file " + FILE$
  29. 380     IF INKEY$ <> "" THEN 380
  30. 390     KEYSYM$ = INKEY$ : IF KEYSYM$ = "" THEN 390
  31. 400     IF KEYSYM$ <> CHR$(32) THEN 380
  32. 410     FOR I = 1 TO N
  33. 420       PRINT #1,USING "#.######^^^^  ";X(I);Y(I)
  34. 430     NEXT
  35. 440     CLOSE #1
  36. 450     PRINT : PRINT "Done  ... ": PRINT
  37. 460     END
  38.